home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_34 / scrolly.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  3KB  |  50 lines
  1. 10 REM ************************************************************************
  2. 100 REM **********   PUT MESSAGE INTO TWO STRINGS - TEXT$ AND TEXT2$   **********
  3. 110 VARNAME
  4. 120 VARNAME
  5. 130 VARNAME
  6. 140 VARNAME
  7. 150 UNKNOWN OP: 0x3A
  8. 160 REM **********   DRAW 8 COLOURED LINES AT THE TOP OF THE SCREEN   **********
  9. 170 FOR
  10. 180 REM **********  COPY THEM INTO TEMP$ VARIABLE AND CREATE STRIPES  **********
  11. 190 VARNAME
  12. 20 REM *                                                                      *
  13. 200 FOR
  14. 210 SCREEN COPY
  15. 220 REM **********       "DUMB" COLOUR CYCLE WITH SHIFT COMMAND       **********
  16. 230 SHIFT
  17. 240 UNKNOWN OP: 0x3A
  18. 250 REM **********   DEFINE SCROLL ZONE AND Y COORD FOR TEXT TO SIT   **********
  19. 260 VARNAME
  20. 270 DEF
  21. 280 UNKNOWN OP: 0x3A
  22. 290 REM **********       START MAIN LOOP FOR SHUDDER TEXT PRINT       **********
  23. 30 REM *          STOS SPECIAL FX #2 - SIMPLE SCROLLY & SHUDDER DEMO          *
  24. 300 FOR
  25. 310 LOCATE
  26. 320 UNKNOWN OP: 0x3A
  27. 330 REM ********** CREATE A SHUDDER EFFECT WITH SCROLL UP+SCROLL DOWN **********
  28. 340 BOOM
  29. 350 NEXT
  30. 360 WAIT
  31. 370 UNKNOWN OP: 0x3A
  32. 380 REM **********     SCROLL FIRST LOT OF TEXT OFF SCREEN RAPIDLY    **********
  33. 390 FOR
  34. 40 REM *                                                                      *
  35. 400 UNKNOWN OP: 0x3A
  36. 410 REM **********               SCROLL TEXT2$ MAIN LOOP              **********
  37. 420 REPEAT
  38. 430 FOR
  39. 440 LOCATE
  40. 450 UNKNOWN OP: 0x3A
  41. 460 REM **********   PRINTS AT FAR RIGHT OF SCREEN AND SCROLLS LEFT   **********
  42. 470 WAIT VBL
  43. 480 NEXT
  44. 490 UNTIL
  45. 50 REM *                           BY P.J.HICKMAN                             *
  46. 60 REM *                                                                      *
  47. 70 REM ************************************************************************
  48. 80 KEY
  49. 90 UNKNOWN OP: 0x3A
  50.